﻿Imports Alquilaqi
Public Class EstudianteListar
    Private Sub EstudianteListar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'aqui es cuando ni bien se abre el MDI aparesca los elementos que quieras

        With Me.dgvEstudiantes.ColumnHeadersDefaultCellStyle
            .BackColor = Color.Red
            .ForeColor = Color.White

        End With
    End Sub

    Private Sub btnListar_Click_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListar_Click.Click
        Dim criterio As String = Me.txtBuscar.Text
        'MsgBox(criterio)


        Dim negocio As New EstudianteNegocio
        Dim estudiantes As Collection = negocio.buscarPorNombre(criterio)
        Me.dgvEstudiantes.DataSource = estudiantes      ' el coleccion lo mostramos en el datagriew  "dgvEstudiantes"
        Me.dgvEstudiantes.EditMode = False

        If estudiantes.Count > 0 Then

            Me.dgvEstudiantes.Columns(0).Visible = False '"Id Estudiante"
            'Me.dgvEstudiantes.Columns(1).Visible = False '"Id Centro de Estudio"
            Me.dgvEstudiantes.Columns(1).HeaderText = "Centro de estudio"
            Me.dgvEstudiantes.Columns(2).HeaderText = "Nombres"
            Me.dgvEstudiantes.Columns(3).HeaderText = "A. Paterno"
            Me.dgvEstudiantes.Columns(4).HeaderText = "A. Materno"
            Me.dgvEstudiantes.Columns(5).HeaderText = "Edad"
            'Me.dgvEstudiantes.Columns(5).HeaderText = "Centro de estudio"
            Me.dgvEstudiantes.Columns(6).HeaderText = "Dirección"
            Me.dgvEstudiantes.Columns(7).HeaderText = "Teléfono"
            Me.dgvEstudiantes.Columns(8).HeaderText = "Correo"
            Me.dgvEstudiantes.Columns(9).HeaderText = "Estado civil"
            Me.dgvEstudiantes.Columns(10).HeaderText = "DNI"
            Me.dgvEstudiantes.Columns(11).HeaderText = "Password"

        End If

    End Sub
End Class